home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / datalist / datalist.exe / %MAINDIR% / SAMPLES / Sample7 / FORM1.FRM (.txt) next >
Encoding:
Visual Basic Form  |  1998-03-09  |  11.5 KB  |  306 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Sorting Sample"
  4.    ClientHeight    =   5055
  5.    ClientLeft      =   3465
  6.    ClientTop       =   2670
  7.    ClientWidth     =   8700
  8.    Height          =   5505
  9.    Left            =   3405
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   5055
  12.    ScaleWidth      =   8700
  13.    Top             =   2280
  14.    Width           =   8820
  15.    Begin VB.Label Label1 
  16.       Alignment       =   2  'Center
  17.       Caption         =   $"Form1.frx":0000
  18.       ForeColor       =   &H00FF0000&
  19.       Height          =   525
  20.       Left            =   1020
  21.       TabIndex        =   1
  22.       Top             =   390
  23.       Width           =   6675
  24.    End
  25.    Begin DataList.GTList GTList1 
  26.       Align           =   2  'Align Bottom
  27.       Height          =   3855
  28.       Left            =   0
  29.       TabIndex        =   0
  30.       Top             =   1200
  31.       Width           =   8700
  32.       _Version        =   65536
  33.       Sorted          =   -1  'True
  34.       DefColCaptionBorderStyle=   3
  35.       SortKey2        =   1
  36.       BeginProperty DefColCaptionFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  37.          Name            =   "MS Sans Serif"
  38.          Size            =   8.25
  39.          Charset         =   0
  40.          Weight          =   400
  41.          Underline       =   0   'False
  42.          Italic          =   0   'False
  43.          Strikethrough   =   0   'False
  44.       EndProperty
  45.       BeginProperty DefFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  46.          Name            =   "MS Sans Serif"
  47.          Size            =   8.25
  48.          Charset         =   0
  49.          Weight          =   400
  50.          Underline       =   0   'False
  51.          Italic          =   0   'False
  52.          Strikethrough   =   0   'False
  53.       EndProperty
  54.       BeginProperty ScrollTipFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  55.          Name            =   "MS Sans Serif"
  56.          Size            =   8.25
  57.          Charset         =   0
  58.          Weight          =   400
  59.          Underline       =   0   'False
  60.          Italic          =   0   'False
  61.          Strikethrough   =   0   'False
  62.       EndProperty
  63.       BeginProperty ExtendTipFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  64.          Name            =   "MS Sans Serif"
  65.          Size            =   8.25
  66.          Charset         =   0
  67.          Weight          =   400
  68.          Underline       =   0   'False
  69.          Italic          =   0   'False
  70.          Strikethrough   =   0   'False
  71.       EndProperty
  72.       CDs.Count       =   4
  73.       CDs.CD(0).CaptionPictureAlignment=   12
  74.       CDs.CD(0).SubItemSource=   0
  75.       CDs.CD(0).SubColumn=   0
  76.       CDs.CD(0).WordWrap=   0
  77.       CDs.CD(0).CaptionWordWrap=   0
  78.       CDs.CD(0).FontDefined=   -1  'True
  79.       BeginProperty CDs.CD(0).Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  80.          Name            =   "MS Sans Serif"
  81.          Size            =   8.25
  82.          Charset         =   0
  83.          Weight          =   400
  84.          Underline       =   0   'False
  85.          Italic          =   0   'False
  86.          Strikethrough   =   0   'False
  87.       EndProperty
  88.       CDs.CD(0).CaptionFontDefined=   -1  'True
  89.       BeginProperty CDs.CD(0).CaptionFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  90.          Name            =   "MS Sans Serif"
  91.          Size            =   8.25
  92.          Charset         =   0
  93.          Weight          =   400
  94.          Underline       =   0   'False
  95.          Italic          =   0   'False
  96.          Strikethrough   =   0   'False
  97.       EndProperty
  98.       CDs.CD(0).Width =   3836
  99.       CDs.CD(0).Caption=   "Last Name "
  100.       CDs.CD(0).Key   =   ""
  101.       CDs.CD(1).CaptionPictureAlignment=   12
  102.       CDs.CD(1).SubItemSource=   1
  103.       CDs.CD(1).SubColumn=   1
  104.       CDs.CD(1).WordWrap=   0
  105.       CDs.CD(1).CaptionWordWrap=   0
  106.       CDs.CD(1).FontDefined=   -1  'True
  107.       BeginProperty CDs.CD(1).Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  108.          Name            =   "MS Sans Serif"
  109.          Size            =   8.25
  110.          Charset         =   0
  111.          Weight          =   400
  112.          Underline       =   0   'False
  113.          Italic          =   0   'False
  114.          Strikethrough   =   0   'False
  115.       EndProperty
  116.       CDs.CD(1).CaptionFontDefined=   -1  'True
  117.       BeginProperty CDs.CD(1).CaptionFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  118.          Name            =   "MS Sans Serif"
  119.          Size            =   8.25
  120.          Charset         =   0
  121.          Weight          =   400
  122.          Underline       =   0   'False
  123.          Italic          =   0   'False
  124.          Strikethrough   =   0   'False
  125.       EndProperty
  126.       CDs.CD(1).Width =   3201
  127.       CDs.CD(1).Caption=   "First Name "
  128.       CDs.CD(1).Key   =   ""
  129.       CDs.CD(2).CaptionPictureAlignment=   12
  130.       CDs.CD(2).SubItemSource=   2
  131.       CDs.CD(2).SubColumn=   2
  132.       CDs.CD(2).WordWrap=   0
  133.       CDs.CD(2).CaptionWordWrap=   0
  134.       CDs.CD(2).FontDefined=   -1  'True
  135.       BeginProperty CDs.CD(2).Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  136.          Name            =   "MS Sans Serif"
  137.          Size            =   8.25
  138.          Charset         =   0
  139.          Weight          =   400
  140.          Underline       =   0   'False
  141.          Italic          =   0   'False
  142.          Strikethrough   =   0   'False
  143.       EndProperty
  144.       CDs.CD(2).CaptionFontDefined=   -1  'True
  145.       BeginProperty CDs.CD(2).CaptionFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  146.          Name            =   "MS Sans Serif"
  147.          Size            =   8.25
  148.          Charset         =   0
  149.          Weight          =   400
  150.          Underline       =   0   'False
  151.          Italic          =   0   'False
  152.          Strikethrough   =   0   'False
  153.       EndProperty
  154.       CDs.CD(2).Width =   3889
  155.       CDs.CD(2).Caption=   "Title "
  156.       CDs.CD(2).Key   =   ""
  157.       CDs.CD(3).CaptionPictureAlignment=   12
  158.       CDs.CD(3).SubItemSource=   3
  159.       CDs.CD(3).SubColumn=   3
  160.       CDs.CD(3).WordWrap=   0
  161.       CDs.CD(3).CaptionWordWrap=   0
  162.       CDs.CD(3).FontDefined=   -1  'True
  163.       BeginProperty CDs.CD(3).Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  164.          Name            =   "MS Sans Serif"
  165.          Size            =   8.25
  166.          Charset         =   0
  167.          Weight          =   400
  168.          Underline       =   0   'False
  169.          Italic          =   0   'False
  170.          Strikethrough   =   0   'False
  171.       EndProperty
  172.       CDs.CD(3).CaptionFontDefined=   -1  'True
  173.       BeginProperty CDs.CD(3).CaptionFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  174.          Name            =   "MS Sans Serif"
  175.          Size            =   8.25
  176.          Charset         =   0
  177.          Weight          =   400
  178.          Underline       =   0   'False
  179.          Italic          =   0   'False
  180.          Strikethrough   =   0   'False
  181.       EndProperty
  182.       CDs.CD(3).Width =   4339
  183.       CDs.CD(3).Caption=   "Department "
  184.       CDs.CD(3).Key   =   ""
  185.       LIs.Count       =   9
  186.       LIs.LI(0).Index =   0
  187.       LIs.LI(0).SIs.Count=   5
  188.       LIs.LI(0).SIs.SI(0).Index=   0
  189.       LIs.LI(0).SIs.SI(0).Text=   "Benhauser"
  190.       LIs.LI(0).SIs.SI(1).Index=   1
  191.       LIs.LI(0).SIs.SI(1).Text=   "Harvey"
  192.       LIs.LI(0).SIs.SI(2).Index=   2
  193.       LIs.LI(0).SIs.SI(2).Text=   "Sales Executive"
  194.       LIs.LI(0).SIs.SI(3).Index=   3
  195.       LIs.LI(0).SIs.SI(3).Text=   "Sales & Marketing"
  196.       LIs.LI(0).SIs.SI(4).Index=   4
  197.       LIs.LI(1).Index =   1
  198.       LIs.LI(1).SIs.Count=   5
  199.       LIs.LI(1).SIs.SI(0).Index=   0
  200.       LIs.LI(1).SIs.SI(0).Text=   "Dochevny"
  201.       LIs.LI(1).SIs.SI(1).Index=   1
  202.       LIs.LI(1).SIs.SI(1).Text=   "Alex"
  203.       LIs.LI(1).SIs.SI(2).Index=   2
  204.       LIs.LI(1).SIs.SI(2).Text=   "Senior Programmer"
  205.       LIs.LI(1).SIs.SI(3).Index=   3
  206.       LIs.LI(1).SIs.SI(3).Text=   "R & D"
  207.       LIs.LI(1).SIs.SI(4).Index=   4
  208.       LIs.LI(2).Index =   2
  209.       LIs.LI(2).SIs.Count=   5
  210.       LIs.LI(2).SIs.SI(0).Index=   0
  211.       LIs.LI(2).SIs.SI(0).Text=   "Hashumi"
  212.       LIs.LI(2).SIs.SI(1).Index=   1
  213.       LIs.LI(2).SIs.SI(1).Text=   "Ti"
  214.       LIs.LI(2).SIs.SI(2).Index=   2
  215.       LIs.LI(2).SIs.SI(2).Text=   "Sales Manager"
  216.       LIs.LI(2).SIs.SI(3).Index=   3
  217.       LIs.LI(2).SIs.SI(3).Text=   "Sales & Marketing"
  218.       LIs.LI(2).SIs.SI(4).Index=   4
  219.       LIs.LI(3).Index =   3
  220.       LIs.LI(3).SIs.Count=   5
  221.       LIs.LI(3).SIs.SI(0).Index=   0
  222.       LIs.LI(3).SIs.SI(0).Text=   "Huggenkiss"
  223.       LIs.LI(3).SIs.SI(1).Index=   1
  224.       LIs.LI(3).SIs.SI(1).Text=   "Amanda"
  225.       LIs.LI(3).SIs.SI(2).Index=   2
  226.       LIs.LI(3).SIs.SI(2).Text=   "Cook"
  227.       LIs.LI(3).SIs.SI(3).Index=   3
  228.       LIs.LI(3).SIs.SI(3).Text=   "Cafeteria Services"
  229.       LIs.LI(3).SIs.SI(4).Index=   4
  230.       LIs.LI(4).Index =   4
  231.       LIs.LI(4).SIs.Count=   5
  232.       LIs.LI(4).SIs.SI(0).Index=   0
  233.       LIs.LI(4).SIs.SI(0).Text=   "Jones"
  234.       LIs.LI(4).SIs.SI(1).Index=   1
  235.       LIs.LI(4).SIs.SI(1).Text=   "Betty"
  236.       LIs.LI(4).SIs.SI(2).Index=   2
  237.       LIs.LI(4).SIs.SI(2).Text=   "Shipping Clerk"
  238.       LIs.LI(4).SIs.SI(3).Index=   3
  239.       LIs.LI(4).SIs.SI(3).Text=   "Shipping & Receiving"
  240.       LIs.LI(4).SIs.SI(4).Index=   4
  241.       LIs.LI(5).Index =   5
  242.       LIs.LI(5).SIs.Count=   5
  243.       LIs.LI(5).SIs.SI(0).Index=   0
  244.       LIs.LI(5).SIs.SI(0).Text=   "Jones"
  245.       LIs.LI(5).SIs.SI(1).Index=   1
  246.       LIs.LI(5).SIs.SI(1).Text=   "Steven"
  247.       LIs.LI(5).SIs.SI(2).Index=   2
  248.       LIs.LI(5).SIs.SI(2).Text=   "Programmer"
  249.       LIs.LI(5).SIs.SI(3).Index=   3
  250.       LIs.LI(5).SIs.SI(3).Text=   "R & D"
  251.       LIs.LI(5).SIs.SI(4).Index=   4
  252.       LIs.LI(6).Index =   6
  253.       LIs.LI(6).SIs.Count=   5
  254.       LIs.LI(6).SIs.SI(0).Index=   0
  255.       LIs.LI(6).SIs.SI(0).Text=   "McAffertey"
  256.       LIs.LI(6).SIs.SI(1).Index=   1
  257.       LIs.LI(6).SIs.SI(1).Text=   "Laura Anne"
  258.       LIs.LI(6).SIs.SI(2).Index=   2
  259.       LIs.LI(6).SIs.SI(2).Text=   "Sales Executive"
  260.       LIs.LI(6).SIs.SI(3).Index=   3
  261.       LIs.LI(6).SIs.SI(3).Text=   "Sales & Marketing"
  262.       LIs.LI(6).SIs.SI(4).Index=   4
  263.       LIs.LI(7).Index =   7
  264.       LIs.LI(7).SIs.Count=   5
  265.       LIs.LI(7).SIs.SI(0).Index=   0
  266.       LIs.LI(7).SIs.SI(0).Text=   "Smith"
  267.       LIs.LI(7).SIs.SI(1).Index=   1
  268.       LIs.LI(7).SIs.SI(1).Text=   "John"
  269.       LIs.LI(7).SIs.SI(2).Index=   2
  270.       LIs.LI(7).SIs.SI(2).Text=   "Sales Executive"
  271.       LIs.LI(7).SIs.SI(3).Index=   3
  272.       LIs.LI(7).SIs.SI(3).Text=   "Sales & Marketing"
  273.       LIs.LI(7).SIs.SI(4).Index=   4
  274.       LIs.LI(8).Index =   8
  275.       LIs.LI(8).SIs.Count=   5
  276.       LIs.LI(8).SIs.SI(0).Index=   0
  277.       LIs.LI(8).SIs.SI(0).Text=   "Willis"
  278.       LIs.LI(8).SIs.SI(1).Index=   1
  279.       LIs.LI(8).SIs.SI(1).Text=   "Brice"
  280.       LIs.LI(8).SIs.SI(2).Index=   2
  281.       LIs.LI(8).SIs.SI(2).Text=   "Public Relations Manager"
  282.       LIs.LI(8).SIs.SI(3).Index=   3
  283.       LIs.LI(8).SIs.SI(3).Text=   "Public Relations"
  284.       LIs.LI(8).SIs.SI(4).Index=   4
  285.       LImgs.Count     =   3
  286.       LImgs.LImg(1).Index=   1
  287.       LImgs.LImg(1).Picture=   "Form1.frx":0090
  288.       LImgs.LImg(2).Index=   2
  289.       LImgs.LImg(2).Picture=   "Form1.frx":01A2
  290.       _ExtentX        =   15346
  291.       _ExtentY        =   6800
  292.       _StockProps     =   81
  293.       BackColor       =   -2147483643
  294.    End
  295. Attribute VB_Name = "Form1"
  296. Attribute VB_Creatable = False
  297. Attribute VB_Exposed = False
  298. Option Explicit
  299. Private Sub GTList1_ClickColumn(ColumnDef As Object)
  300.     Dim x As Integer
  301.     For x = 0 To GTList1.ColumnDefs.Count - 1
  302.         GTList1.ColumnDefs(x).CaptionImage = 0
  303.     Next x
  304.     ColumnDef.CaptionImage = IIf(GTList1.SortOrder = 0, 1, 2)
  305. End Sub
  306.